home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 62 / Quick PC 62.iso / I386 / IIS5_01.CAB / IIS_default.asp3 < prev    next >
Encoding:
Text File  |  1999-08-31  |  6.8 KB  |  286 lines
  1. <%@ LANGUAGE = VBScript %>
  2. <% Option Explicit %>
  3. <!-- #include file="directives.inc" -->
  4.  
  5.  
  6. <!--#include file="default.str"-->
  7. <!--#include file="iisetfnt.inc"-->
  8.  
  9. <%
  10.  
  11. dim hackfor5
  12. hackfor5 = False
  13.  
  14. function MinVer(browserver,brwminver)
  15.     MinVer = (browserver >= brwminver)
  16.     
  17. end function
  18.  
  19. function GetBrowserVer(browserstr)
  20.     dim  browserver, i, curchr
  21.     browserver = ""
  22.     
  23.     for i = 1 to len(browserstr)    
  24.         curchr = Mid(browserstr, i,1)
  25.         if isNumeric(curchr) or curchr = "." then
  26.             browserver = browserver & curchr
  27.         end if
  28.         if browserver <> "" and not (isNumeric(curchr) or curchr = ".") then
  29.             exit for
  30.         end if
  31.     next
  32.  
  33.     GetBrowserVer = browserver
  34. end function
  35.  
  36. On Error Resume Next
  37. Dim browserobj, browserkey, browserok,browserver,agentstr
  38.  
  39.  
  40.  
  41. if Request.Querystring("browserok") <> "" or Request.QueryString("FONTSIZE") <> "" then    
  42.     browserok = True
  43. else
  44.  
  45.     browserkey = "Unknown Browser"
  46.     agentstr = Request.ServerVariables("HTTP_USER_AGENT")
  47.     Session("CanBrowse") = True
  48.     Session("ListSort") = True
  49.     Session("FONTSCALE") = L_DEFFONTSCALE_TEXT 
  50.     Session("FONTFACE") = L_DEFTEXTFONT_TEXT
  51.     Session("FONTPOINT") = L_DEFFONTPOINT
  52.     Session("MENUFONT") = L_DEFMENUFONT_TEXT
  53.     Session("MENUFONTSIZE") = L_DEFMENUFONTPOINT
  54.     Session("MENUBODY") = "<BODY background='images/greycube.gif' TEXT = 'White' LINK='White' VLINK='White' ALINK='#66CCCC' TOPMARGIN=0 LEFTMARGIN=0>"
  55.     Session("DEFINPUTSTYLE") = L_DEFINPUTSTYLE
  56.     Session("IE3Layout") = False
  57.     Session("IE4Layout") = False
  58.     Session("hasDHTML") = False    
  59.     Session("hasStyles") = True
  60.     Session("BGCOLOR") = "Silver"
  61.     Session("BrowserVer") = ""
  62.     Session("BrowserVScalePct") = 100
  63.     Session("BrowserHScalePct") = 100
  64.     Session("BrowserTBScalePct") = 100
  65.  
  66.     if Instr(agentstr, "MSIE") then
  67.  
  68.             curLocale = GetLocale
  69.             SetLocale("en-us")
  70.             browserver = CInt(GetBrowserVer(Mid(agentstr,InStr(agentstr,"MSIE"))))
  71.             SetLocale(curLocale)
  72.  
  73.             'check for mac... we will warn users on pre IE4
  74.             if InStr(agentstr, "Mac") > 0 then            
  75.                 browserok=MinVer(browserver,4)    
  76.             else
  77.                 browserok=MinVer(browserver,3)                
  78.             end if
  79.             browserKey = "IE" & browserver
  80.             Session("BrowserVer") = browserver
  81.             Session("IsIE") = True
  82.             if browserver > 3 then
  83.                 Session("IE4Layout") = True
  84.                 Session("hasDHTML") = True
  85.  
  86.             end if
  87.     else
  88.         Session("IsIE") = False
  89.         if Instr(agentstr,"Mozilla") then
  90.         
  91.             SetLocale("en-us")
  92.             browserver = CInt(GetBrowserVer(agentstr))    
  93.             SetLocale(curLocale)
  94.             browserKey = "Netscape"    
  95.             Session("BrowserVer") = browserver        
  96.             if InStr(agentstr, "Win") > 0 then
  97.                     browserok=MinVer(browserver,3)    
  98.             elseif InStr(agentstr, "Mac") > 0 then
  99.                     browserok=MinVer(browserver,4)                
  100.                     Session("CanBrowse") = False
  101.                     Session("IsMac") = True
  102.             else
  103.                     browserok=MinVer(browserver,4)
  104.                     Session("IsUNIX") = True
  105.                     Session("hasStyles") = False
  106.                     Session("ListSort") = False
  107.                     Session("FONTSCALE") = L_UNIXFONTSCALE 
  108.                     Session("FONTFACE") =  L_UNIXTEXTFONT_TEXT 
  109.                     Session("FONTPOINT") = L_UNIXFONTPOINT  
  110.                     Session("MENUFONT") =  L_UNIXMENUFONT_TEXT
  111.                     Session("MENUFONTSIZE") = L_UNIXFONTPOINT
  112.                       
  113.                     if browserver > 4 then
  114.                         Session("DEFINPUTSTYLE")= ""
  115.                     else
  116.                         Session("DEFINPUTSTYLE") = L_UNIXINPUTSTYLE
  117.                     end if
  118.             end if
  119.             if browserver < 4 then
  120.                 Session("BrowserVScalePct") = 128
  121.                 Session("BrowserHScalePct") = 104            
  122.             else
  123.                 Session("BrowserVScalePct") = 125
  124.                 Session("BrowserHScalePct") = 104
  125.             end if
  126.             Session("BrowserTBScalePct") = 75
  127.         else
  128.             browserok = false
  129.         end if
  130.     end if
  131.     Session("Browser") = browserkey
  132. end if
  133. %>
  134.  
  135. <% if browserok then %>    
  136.  
  137.     <%
  138.     if Request.QueryString("FONTSIZE") <> "" then 
  139.         Response.Cookies("HTMLA")("FONTSIZE")=Request.QueryString("FONTSIZE") 
  140.         Response.Cookies("HTMLA").expires=#December 31, 2000 1:00:00 AM#        
  141.         Session("FONTSIZE")=Request.QueryString("FONTSIZE")
  142.         Session.timeout=200
  143.     else
  144.         Session("FONTSIZE") = Request.Cookies("HTMLA")("FONTSIZE")
  145.     end if
  146.     %>
  147.     
  148.     <html>        
  149.  
  150.  
  151.     <% if Session("IsIE") then %>
  152.         <script language="JavaScript">
  153.         // Determine the version number.
  154.         var version;
  155.          version=1
  156.         var requiredVersion=2;
  157.         if (typeof(ScriptEngineMajorVersion) + ""=="undefined")
  158.         {
  159.             version=1;
  160.         }
  161.         else
  162.         {
  163.             version=ScriptEngineMajorVersion();
  164.         }
  165.  
  166.         // Prompt client and navigate to download page.
  167.  
  168.         if (version < requiredVersion)
  169.         {
  170.             if (confirm("<%= L_LIVESCRIPT_TEXT %>"))
  171.             {            
  172.                 self.location.href="http://www.microsoft.com/msdownload/scripting.htm";
  173.             }
  174.         }
  175.         </script>
  176.     <% end if %>
  177.     
  178.     
  179.     
  180.     <head>
  181.     <title><%= L_TITLE_TEXT %></title>
  182.     </head>
  183.     
  184.     <script LANGUAGE="JavaScript">
  185.     <% if Session("IsIE") then %>
  186.     if (version >= requiredVersion)
  187.     {
  188.     <% end if %>
  189.         if (newBrowser()){
  190.             var curURL = self.location.href;
  191.             curURL = curURL.toUpperCase();
  192.             if (curURL.substring(0,4) != "HTTPS")
  193.             {
  194.                 alert("<%= L_NOSSL_TEXT %>");
  195.             }
  196.             self.location.href = "iisnew.asp";
  197.         }
  198.         else
  199.         {
  200.             self.location.href = "iis.asp";
  201.         }
  202.     <% if Session("IsIE") then %>    
  203.     }
  204.     <% end if %>
  205.     
  206.     function newBrowser(){
  207.         //Checks for existence of cookie
  208.         cookiestr="<%= Session("FONTSIZE") %>"
  209.         brwser="<%= Session("BROWSER") %>"        
  210.         return (cookiestr == "");
  211.     }
  212.  
  213.     </script>
  214.     
  215.     <body BGCOLOR="silver">
  216.     </body>
  217.  
  218. <% else %>
  219.  
  220.     <html>        
  221.     <body background="silver" text="#000000" LEFTMARGIN = 0 TOPMARGIN=0>
  222.     <table width="100%" cellpadding="0" cellspacing="0" border="0">
  223.     <tr bgcolor="Teal">
  224.         <td>
  225.         <IMG SRC="images/Ismhd.gif" WIDTH=189 HEIGHT=19 BORDER=0>
  226.         </td>
  227.         
  228.         <td align="right" valign="middle">
  229.             <%= sFont("","","#FFFFFF",True) %>
  230.             </FONT>    
  231.         </td>
  232.     </tr>
  233. </table>
  234.  
  235.     
  236.     <table cellpadding="0" height="100%" width="100%" cellpadding="0" cellspacing="0" border="0">
  237.     
  238.     <tr>
  239.     <td VALIGN="top" bgcolor=white>
  240.         <IMG SRC="images/Ism.gif" WIDTH=189 HEIGHT=55 BORDER=0>
  241.     </td>
  242.     <td width=10 bgcolor="Silver">
  243.      
  244.     </td>
  245.     <td width="100%" bgcolor="Silver" VALIGN="top">
  246.     
  247.     <%= sFont("","","",True) %>
  248.      
  249.     <br>
  250.     <%= L_BROWSERUNTESTED_TEXT %><p>
  251.     <p>
  252.     <%= L_MAYCONTINUE_TEXT %>
  253.     <p>
  254.     <a href="http://www.microsoft.com/ie/default.asp"><%= L_BESTVIEWING_TEXT %></a> 
  255.     <p>
  256.     <a href="default.asp?browserok=True">
  257.     <%= L_CONTINUE_TEXT %>
  258.     </a>
  259.     <hr>
  260.     <b><%= L_MINREQS_TEXT %></b>
  261.     <p>    
  262.     <b><%= L_WINDOWS_TEXT %></b><br>
  263.     <%= L_IE302_TEXT    %><br>
  264.     <%= L_NS30_TEXT        %><br>
  265.     <p>
  266.     <b><%= L_MAC_TEXT    %></b><br>
  267.     <%= L_IE400_TEXT    %><br>
  268.     <%= L_NS403_TEXT    %><br>
  269.     <p>
  270.     <b><%= L_UNIXOS_TEXT %></b><br>
  271.     <%= L_IE400_TEXT    %><br>
  272.     <%= L_NS403_TEXT    %><br>
  273.     </font>
  274.     </td>
  275.     </tr>
  276.     </table>
  277.     
  278.     <FONT COLOR="#FFFFFF">
  279.         <%= Session("Browser") %>
  280.         <%= Session("browserver") %>
  281.         <%= Session("BrowserHScalePct") %>        
  282.     </FONT>
  283.     
  284.     </body>
  285.     <% end if %>
  286. </html>